home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh23b.d64 / liga-master v3 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  23KB  |  844 lines
  1. 1 REM *********************************
  2. 2 REM *                               *
  3. 3 REM * AUTOR : SIEHE AB ZEILE  63000 *
  4. 4 REM *                               *
  5. 5 REM *********************************
  6. 6 POKE2,PEEK(2)+1:IFPEEK(2)>3THEN180
  7. 7 LOADSTR$(PEEK(2))+"*",8,1
  8. 8 DATA121,20,20,20,121,0
  9. 9 DATA57,68,68,68,57,0
  10. 10 DATA60,65,64,65,60,0
  11. 11 ======== UNTERPROGRAMME =============
  12. 12 REM MOMENT
  13. 13 PRINT:PRINTTAB(TB)"[205]OMENT ...":RETURN
  14. 14 REM TASTE
  15. 15 POKE198,0:WAIT198,1:GETA$:RETURN
  16. 20 REM ZENTRIEREN
  17. 25 PRINTTAB((40-LEN(Z$))/2);Z$:RETURN
  18. 30 REM SPACE
  19. 35 PRINT"";:Z$="[170][167] [211][208][193][195][197] [190][191]":GOSUB25
  20. 40 GOSUB15:IFA$<>" "ANDA$<>"X"THEN40
  21. 45 RETURN
  22. 50 REM FEHLERKANAL
  23. 55 Z$=""
  24. 60 GET#15,A$:Z$=Z$+A$:IFA$<>CHR$(13)THEN60
  25. 65 FK$=Z$:A=VAL(Z$):IFA<2THENRETURN
  26. 71 PRINT"[147]":GOSUB25:PRINT:PRINT:PRINT:GOSUB35
  27. 72 RETURN
  28. 75 REM KORREKT ?
  29. 80 Z$="[150][203]ORREKT ([202]/[206]) ?":GOSUB25:RETURN
  30. 85 REM INPUT / GET
  31. 90 E$="":DP%=0:POKE204,0
  32. 95 GOSUB15
  33. 100 IFA$=CHR$(13)THEN130
  34. 105 IFA$=":"ANDLEN(E$)<9THENDP%=DP%+1:A$="[169]":PRINTA$;:E$=E$+A$:GOTO95
  35. 110 IF(A$>="-"ANDA$<="9"ANDA$<>"/")ANDLEN(E$)<9THENPRINTA$;:E$=E$+A$
  36. 115 L=LEN(E$)-1:IFA$=CHR$(20)ANDRIGHT$(E$,1)="[169]"THENDP%=DP%-1
  37. 120 IFA$=CHR$(20)ANDL>=0THENPRINTA$;:E$=LEFT$(E$,L)
  38. 125 GOTO95
  39. 130 IFE$=""THENE$=E$(SP,I):PRINTE$;:GOTO135
  40. 131 IFDP%<>1THEN95
  41. 135 POKE204,1:PRINT" ":RETURN
  42. 140 REM VON / BIS
  43. 145 AF=VAL(ST$)
  44. 150 IFAF<0THENED=(ABS(AF)>AS*RR%)*-AS*RR%+INT(NOT(ABS(AF)>AS*RR%))*AF:AF=1:RETURN
  45. 155 IFRIGHT$(ST$,1)="-"THENED=AS*RR%:RETURN
  46. 160 PO%=0:FORJJ=1TOLEN(ST$):IFMID$(ST$,JJ,1)="-"THENPO%=JJ
  47. 162 NEXT
  48. 165 IFPO%=0THENED=AF:RETURN
  49. 170 ED=VAL(MID$(ST$,PO%+1)):RETURN
  50. 175 ========== INITIALISIEREN ==========
  51. 180 DIMM$(2,20),Z$(20),G(38,10),H(38,10),D$(38),E$(38,10),LI$(1),C$(6)
  52. 185 DIMPP(20),MP(20),PT(20),MT(20),GW(20),UN(20),VL(20),PL(20)
  53. 186 PL(0)=-1
  54. 190 FORI=0TO20:Z$(I)=RIGHT$(STR$(I),2):NEXT
  55. 200 FORI=1TO3:C$(I)=CHR$(8):FORJ=1TO6:READA
  56. 201 C$(I)=C$(I)+CHR$(A+128):NEXT:C$(I)=C$(I)+CHR$(15):NEXT
  57. 203 RESTORE:FORI=4TO6:C$(I)=CHR$(8):FORJ=1TO6:READA
  58. 204 C$(I)=C$(I)+CHR$(A+128)+CHR$(A+128):NEXT:C$(I)=C$(I)+CHR$(14):NEXT
  59. 217 OPEN15,8,15:OPEN3,0:DR=3:POKE251,66
  60. 220 SP$="                                        ":SP$=SP$+SP$
  61. 225 MU$="[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  62. 226 IFPEEK(789)<>194THENGOSUB18500
  63. 227 SYS50432:GOTO230
  64. 228 ============ HAUPTMEN^ =============
  65. 230 PRINT"[147]":PRINTLI$(0)
  66. 240 PRINT""MU$:PRINT"[145][145]";:Z$=" [200] A U P T M E N ^ ":GOSUB25
  67. 250 PRINT"[193]) [212]ABELLE           [198]) NEUE [204]IGA
  68. 260 [153]"PEEK) VALRGEBNISSE AUSG.  CHR$) STR$ATEN L*SCHEN
  69. 270 PRINT"[195]) RESTLICHE [211]PIELE  [200]) [193]USGABEGER@T
  70. 272 [139]DR[178]4[167][153][163]24)"PEEKILDSCHIRM":[137]280
  71. 275 [153][163]24)"STR$RUCKER"
  72. 280 [153]"STR$) VALRGEBNISSE EING.  RIGHT$) (null)HR STELLEN
  73. 290 PRINT"[197]) [196]ISK              [195][212][210][204] [202]) [197]NDE
  74. 300 [153]MU$
  75. 310 [141]15
  76. 315 [139]A$[178][199](10)[167]16000
  77. 320 [139]A$[179]"A"[176]A$[177]"I"[167]310
  78. 340 [145][198](A$)[171]64[137]3000,5000,9000,7000,15000,31000,500,18000,1000
  79. 499 [178][178][178][178][178][178][178][178][178][178][178] DATEN L[172]SCHEN [178][178][178][178][178][178][178][178][178][178]
  80. 500 [153]"LOAD"LI$(0):Z$[178]" STR$ A T E N   L * S C H E N "
  81. 510 [153]""MU$:[153]"ONON";:[141]25
  82. 520 [153][163]12)"1) ALLE"         
  83. 530 [153][163]12)"2) (null)PIELTAG"
  84. 540 [153][163]12)"3) LEFT$AUPTMEN^"         
  85. 550 [153]MU$
  86. 560 [141]15
  87. 570 [139]A$[179]"1"[176]A$[177]"3"[167]560
  88. 580 [139]A$[178]"3"[167]230
  89. 590 [133]"LOAD (null)ICHER ";SI$
  90. 600 [139][200](SI$,1)[179][177]"J"[167]500
  91. 610 [139]A$[178]"1"[167][138]180
  92. 620 [141]17000:[139]AF[178]1[175]ED[178]AS[172]RR%[167]670
  93. 630 [153]"":TB[178]14:[141]13
  94. 640 [129]SP[178]AF[164]ED
  95. 641 [129]II[178]1[164]NM[173]2:EG$(II)[178]"-STEP-":E$(SP,II)[178]"-STEP-":[130]
  96. 650 [141]7280
  97. 660 [130]:[137]230
  98. 670 [129]I[178]1[164]NM:PP(I)[178]0:MP(I)[178]0:PT(I)[178]0:MT(I)[178]0:GW(I)[178]0:UN(I)[178]0:VL(I)[178]0:[130]
  99. 680 [129]I[178]1[164]AS[172]RR%:[129]J[178]1[164]NM[173]2:E$(I,J)[178]"-STEP-":[130]:[130]:PL(0)[178][171]1
  100. 690 [137]230
  101. 999 [178][178][178][178][178][178][178][178][178][178] UHR STEL[195] [178][178][178][178][178][178][178][178][178][178][178][178][178]
  102. 1000 [141]18500:[137]230
  103. 2999 [178][178][178][178][178][178][178][178][178][178][178][178][178] TABELLE [178][178][178][178][178][178][178][178][178][178][178][178][178]
  104. 3000 [153]"LOAD"LI$(0)
  105. 3010 [153]""MU$
  106. 3020 [153]"ONON";:Z$[178]" (null) A B E L L E ":[141]25
  107. 3030 [153][163]12)"1)CLOSEAUSGEBEN"
  108. 3040 [153][163]12)"2)CLOSEEINGEBEN"
  109. 3050 [153][163]12)"3)CLOSELEFT$AUPTMEN^"
  110. 3060 [153]MU$
  111. 3070 [141]15
  112. 3080 [139]A$[179]"1"[176]A$[177]"3"[167]3070
  113. 3090 [145][197](A$)[137]3100,4000,230
  114. 3100 TB[178]12:[141]13:[139]PL(0)[179][177][171]1[167]3310
  115. 3105 [129]I[178]1[164]NM:PL(I)[178]0:[130]
  116. 3110 [129]I[178]1[164]NM:[129]J[178]1[164]NM
  117. 3120 [139]PP(I)[179]PP(J)[167]3290
  118. 3130 [139]PP(I)[177]PP(J)[167]3300
  119. 3140 [139]MP(I)[177]MP(J)[167]3290
  120. 3150 [139]MP(I)[179]MP(J)[167]3300
  121. 3160 [139]PT(I)[171]MT(I)[179]PT(J)[171]MT(J)[167]3290
  122. 3170 [139]PT(I)[171]MT(I)[177]PT(J)[171]MT(J)[167]3300
  123. 3180 [139]PT(I)[179]PT(J)[167]3290
  124. 3190 [137]3300
  125. 3290 PL(I)[178]PL(I)[170]1
  126. 3300 [130]:[130]:PL(0)[178]0
  127. 3310 [153]"LOAD":F%[178]0:[139]DR[178]3[167]3315
  128. 3311 [152]4:[152]4,[199](14)"TABELLE"[199](15):[152]4
  129. 3312 [152]4,"PLATZ  MANNSCHAFT     SPIELE GW UN VL           DIFFERENZ         PKT"
  130. 3313 [152]4,[199](8)[199](26)[199](210)[199](136)[199](26)[199](210)[199](136)[199](15)
  131. 3315 K[178]0:[129]I[178]1[164]NM:[129]J[178]1[164]NM
  132. 3320 [139]PL(J)[170]1[179][177]I[167]3480
  133. 3325 K[178]K[170]1
  134. 3326 [151]646,1[171](K[173]2[178][181](K[173]2))[172]4
  135. 3330 [139]F%[178]I[167][153]"    ";:[137]3350
  136. 3340 F%[178]I:[153]Z$(I)". ";:[139]DR[178]4[167][152]4,I".";
  137. 3350 [153]M$(0,J);:[139]DR[178]4[167][152]4,[199](16)"07"M$(1,J);
  138. 3360 DI$[178][201](SP$[170][196]([182](PT(J)[171]MT(J))),5)
  139. 3365 V$[178]" "
  140. 3370 [139]PT(J)[171]MT(J)[177]0[167]V$[178]"+"
  141. 3371 [139]PT(J)[171]MT(J)[179]0[167]V$[178]"-"
  142. 3380 PP$[178][201]([196](PP(J)),2)
  143. 3390 MP$[178][201]([196](MP(J)),2)
  144. 3395 AS$[178][201]([196](GW(J)[170]UN(J)[170]VL(J)),2)
  145. 3400 [153][163]17)"(null) "AS$" (null) "V$;DI$" (null) "PP$":"MP$
  146. 3410 [139]DR[178]3[167]3480
  147. 3420 [152]4,[199](16)"24"AS$;
  148. 3430 GW$[178][201]([196](GW(J)),2)
  149. 3440 UN$[178][201]([196](UN(J)),2)
  150. 3450 VL$[178][201]([196](VL(J)),2)
  151. 3455 PT$[178][201](SP$[170][196](PT(J)),5)
  152. 3456 MT$[178][201](SP$[170][196](MT(J)),5)
  153. 3460 [152]4,"   "GW$" "UN$" "VL$"   ";
  154. 3470 [152]4,PT$":"MT$"     "V$;DI$"   "PP$":"MP$
  155. 3480 [130]:[130]
  156. 3481 [153]:[141]35
  157. 3482 [139]A$[178]"X"[167]3000
  158. 3490 [153]"LOAD"
  159. 3500 F%[178]0:K[178]0:[129]I[178]1[164]NM:[129]J[178]1[164]NM
  160. 3510 [139]PL(J)[170]1[179][177]I[167]3580
  161. 3515 K[178]K[170]1
  162. 3516 [151]646,1[171](K[173]2[178][181](K[173]2))[172]4
  163. 3517 [139]F%[178]I[167][153]"    ";:[137]3530
  164. 3520 F%[178]I:[153]Z$(I);". ";
  165. 3530 AS$[178][201]([196](GW(J)[170]UN(J)[170]VL(J)),2)
  166. 3540 GW$[178][201]([196](GW(J)),2)
  167. 3550 UN$[178][201]([196](UN(J)),2)
  168. 3560 VL$[178][201]([196](VL(J)),2)
  169. 3565 [153]M$(0,J);
  170. 3570 [153]"  "AS$"   "GW$" "UN$" "VL$
  171. 3580 [130]:[130]
  172. 3590 [153]:[141]35
  173. 3610 [137]3000
  174. 4000 [153]"LOADA  ALLE"
  175. 4010 [129]I[178]1[164]NM
  176. 4020 [151]646,1[171](I[173]2[178][181](I[173]2))[172]4
  177. 4040 [153]Z$(I);". "M$(0,I)
  178. 4050 [130]
  179. 4060 [153]""[163]22)"(null)ANNSCHAFT :"
  180. 4070 [153][163]22);:[132]3,M$
  181. 4075 [139]M$[178]"X"[167]3000
  182. 4080 [139]M$[178]"A"[175]NM[179][177]0[167]AF[178]1:ED[178]NM:[137]4115
  183. 4090 M[178][197](M$)
  184. 4100 [139]M[179]1[176]M[177]NM[167][153]"ON":[137]4070
  185. 4110 AF[178]M:ED[178]M
  186. 4115 [129]I[178]AF[164]ED
  187. 4120 [153]"LOADSYS"M$(0,I)
  188. 4125 [153][163]15)""PP(I)
  189. 4130 [133]"ON(null)LUSPUNKTE....";PP(I)
  190. 4135 [153][163]15)MP(I)
  191. 4140 [133]"ON(null)INUSPUNKTE...";MP(I)
  192. 4145 [153][163]15)""PT(I)
  193. 4150 [133]"ON(null)LUSTORE......";PT(I)
  194. 4155 [153][163]15)MT(I)
  195. 4160 [133]"ON(null)INUSTORE.....";MT(I)
  196. 4165 [153][163]15)""GW(I)
  197. 4170 [133]"ONGEWONNEN......";GW(I)
  198. 4175 [153][163]15)UN(I)
  199. 4180 [133]"ONUNENTSCHIEDEN.";UN(I)
  200. 4185 [153][163]15)VL(I)
  201. 4190 [133]"ONVERLOREN......";VL(I)
  202. 4200 [153]:[141]80
  203. 4210 [141]15:[139]A$[178]"N"[167]4120
  204. 4220 [139]A$[179][177]"J"[167]4210
  205. 4230 [130]:PL(0)[178][171]1:[137]3000
  206. 4998 [128]
  207. 4999 [178][178][178][178][178][178][178] ERGEBNISSE AUSGEBEN [178][178][178][178][178][178][178]
  208. 5000 [153]"LOAD"LI$(0)
  209. 5010 [153]""MU$"ON";:Z$[178]" VAL R G E B N I S S E   A U S G . ":[141]25
  210. 5020 [153][163]9)"1) (null)PIELTAG"
  211. 5030 [153][163]9)"2) EINZELNE (null)ANNSCHAFT"
  212. 5040 [153][163]9)"3) BESTIMMTES (null)PIEL"
  213. 5050 [153][163]9)"4) LEFT$AUPTMEN^"
  214. 5060 [153]MU$
  215. 5070 [141]15
  216. 5080 [139]A$[179]"1"[176]A$[177]"4"[167]5070
  217. 5090 [145][197](A$)[137]5100,5500,6000,230
  218. 5100 [141]17000:[139]ST$[178]"X"[167]5000
  219. 5140 [139]AF[179]1[176]AF[177]AS[172]RR%[167]5100
  220. 5150 [129]SP[178]AF[164]ED
  221. 5160 [153]"LOAD"LI$(0)
  222. 5170 [153]""SP"CMD. (null)PIELTAG  "S$"    "D$(SP)""
  223. 5180 F%[178]0:[129]I[178]1[164]NM[173]2:[139]E$(SP,I)[178]"-STEP-"[167]F%[178]F%[170]1
  224. 5190 [130]
  225. 5200 [139]F%[178][181](NM[173]2)[167][153]"  VALS LIEGT NOCH KEIN VALRGEBNIS VOR !!!":[137]5240
  226. 5206 [139]DR[178]4[167][152]4,SP". SPIELTAG     "D$(SP):[152]4
  227. 5210 [129]I[178]1[164]NM[173]2
  228. 5215 [151]646,1[171](I[173]2[178][181](I[173]2))[172]4
  229. 5220 [153]M$(0,H(SP,I))"-"M$(0,G(SP,I))" "E$(SP,I)
  230. 5225 [139]DR[178]4[167][141]18100:[152]4
  231. 5230 [130]
  232. 5240 [153]"":[141]35:[130]:[137]5000
  233. 5500 [153]"LOAD"
  234. 5510 [129]I[178]1[164]NM
  235. 5515 [151]646,1[171](I[173]2[178][181](I[173]2))[172]4
  236. 5520 [153]Z$(I)". "M$(0,I)
  237. 5530 [130]
  238. 5540 [153]""[163]22)"(null)ANNSCHAFT :"
  239. 5550 [153][163]22);:[132]3,M$
  240. 5560 [139]M$[178]"X"[167]5000
  241. 5570 M[178][197](M$):[139]M[179]1[176]M[177]NM[167]5540
  242. 5575 [139]DR[178]3[167]5580
  243. 5576 [152]4:[152]4:[152]4,"ERGEBNISSE  "[199](14)M$(2,M)[199](15):[152]4
  244. 5580 K[178]0:[129]SP[178]1[164]AS[172]RR%:[139]K[179][177]0[167]5630
  245. 5590 [153]"LOAD"LI$(0)
  246. 5600 [153]"SYS VALRGEBNISSE "M$(0,M)""
  247. 5630 [129]I[178]1[164]NM[173]2
  248. 5635 [151]646,1[171](K[173]2[178][181](K[173]2))[172]4
  249. 5640 [139]H(SP,I)[179][177]M[176]E$(SP,I)[178]"-STEP-"[167]5670
  250. 5650 [153]M$(0,G(SP,I))" (LEFT$) "E$(SP,I)[163]29)D$(SP):K[178]K[170]1
  251. 5660 [139]DR[178]3[167]5665
  252. 5661 [141]18100:[152]4,[199](16)"49"SP". SPIELTAG  /  "D$(SP)
  253. 5665 [137]5700
  254. 5670 [139]G(SP,I)[179][177]M[176]E$(SP,I)[178]"-STEP-"[167]5700
  255. 5680 [153]M$(0,H(SP,I))" (ATN) "E$(SP,I)[163]29)D$(SP):K[178]K[170]1
  256. 5690 [139]DR[178]3[167]5700
  257. 5695 [141]18100:[152]4,[199](16)"50"SP". SPIELTAG  /  "D$(SP)
  258. 5700 [139]K[178]10[167]K[178]0:[153]:[141]35
  259. 5710 [130]:[130]
  260. 5720 [139]K[179][177]0[167][153]:[141]35
  261. 5730 [137]5000
  262. 6000 [153]"LOAD"
  263. 6010 [129]I[178]1[164]NM
  264. 6015 [151]646,1[171](I[173]2[178][181](I[173]2))[172]4
  265. 6020 [153]Z$(I)". "M$(0,I)
  266. 6030 [130]
  267. 6040 [153]""[163]22)"LEFT$EIMMANNSCHAFT :"
  268. 6050 [153][163]22);:[132]3,HM$:[139]HM$[178]"X"[175]F2%[178]1[167]F2%[178]0:[137]9000
  269. 6051 [139]HM$[178]"X"[167]5000
  270. 6055 HM[178][197](HM$):[139]HM[179]1[176]HM[177]NM[167][153]"ON":[137]6050
  271. 6056 [153]"ON":[153][163]22)M$(0,HM)
  272. 6060 [153]"":[153][163]22)"CHR$ASTMANNSCHAFT :"
  273. 6070 [153][163]22);:[132]3,GM$
  274. 6080 GM[178][197](GM$):[139]GM[179]1[176]GM[177]NM[167][153]"ON":[137]6070
  275. 6090 [153]"ON":[153][163]22)M$(0,GM):TB[178]22:[141]13
  276. 6100 F%[178]0:[129]SP[178]1[164]AS[172]RR%
  277. 6110 [129]I[178]1[164]NM[173]2
  278. 6120 [139](H(SP,I)[179][177]HM[176]G(SP,I)[179][177]GM)[175](G(SP,I)[179][177]HM[176]H(SP,I)[179][177]GM)[167]6190
  279. 6130 [139]F%[178]0[167]F%[178]1:[153]"LOAD"LI$(0)""
  280. 6140 [153]""SP"CMD. (null)PIELTAG "S$"   "D$(SP)
  281. 6150 [153]""M$(0,H(SP,I))"-"M$(0,G(SP,I))" "E$(SP,I)
  282. 6160 [139]DR[178]3[167]6190
  283. 6170 [152]4:[152]4:[152]4,SP". SPIELTAG    "D$(SP)
  284. 6180 [152]4:[141]18100:[152]4
  285. 6190 [130]:[130]
  286. 6200 [139]F%[178]1[167][153]:[141]35:[139]F2%[178]1[167]F2%[178]0:[137]9000
  287. 6205 [139]F%[178]1[167]5000
  288. 6210 [153][163]22)"(null)PIEL WIRD NICHT"
  289. 6220 [153][163]22)"AUSGETRAGEN !   "
  290. 6230 [141]15:[139]A$[179][177]" "[167]6230
  291. 6240 [139]F2%[178]1[167]F2%[178]0:[137]9000
  292. 6250 [137]5000
  293. 6999 [178][178][178][178][178][178][178] ERGEBNISSE EINGEBEN [178][178][178][178][178][178][178]
  294. 7000 [153]"LOAD"LI$(0)
  295. 7010 [153]""MU$"ON";:Z$[178]" VAL R G E B N I S S E   E I N G . "
  296. 7020 [141]25
  297. 7030 [153][163]12)"1) (null)PIELTAG"
  298. 7060 [153][163]12)"2) EINZELNES (null)PIEL"
  299. 7070 [153][163]12)"3) LEFT$AUPTMEN^"
  300. 7080 [153]MU$
  301. 7090 [141]15
  302. 7100 [139]A$[179]"1"[176]A$[177]"3"[167]7090
  303. 7110 [145][197](A$)[137]7120,8000,230
  304. 7120 [141]17000:[139]ST$[178]"X"[167]7000
  305. 7130 [139]AF[179]1[176]AF[177]AS[172]RR%[167]7120
  306. 7150 [129]SP[178]AF[164]ED
  307. 7160 [153]"LOAD"LI$(0)
  308. 7170 [153]""SP". (null)PIELTAG "S$[163]29)D$(SP)
  309. 7180 [153]:[129]I[178]1[164]NM[173]2
  310. 7190 [153]M$(0,H(SP,I))"-"M$(0,G(SP,I))[163]30)E$(SP,I)
  311. 7200 [130]
  312. 7210 [153]""[163]30);
  313. 7220 [129]I[178]1[164]NM[173]2
  314. 7230 [141]90:EG$(I)[178]E$:[153][163]30);
  315. 7240 [139][195](E$)[178]9[167][153]"ON";
  316. 7270 [130]:TB[178]12:[141]13:[141]7280:[137]7000
  317. 7280 [129]I[178]1[164]NM[173]2:[139]E$(SP,I)[178]"-STEP-"[167]7350
  318. 7290 H[178][197](E$(SP,I))
  319. 7300 [129]J[178]1[164][195](E$(SP,I))
  320. 7310 [139][202](E$(SP,I),J,1)[178]"STEP"[167]PO[178]J:J[178][195](E$(SP,I))
  321. 7320 [130]
  322. 7330 G[178][197]([202](E$(SP,I),PO[170]1))
  323. 7340 FM%[178][171]1:[141]16500
  324. 7350 [139]EG$(I)[178]"-STEP-"[167]7420
  325. 7355 H[178][197](EG$(I))
  326. 7360 [129]J[178]1[164][195](EG$(I))
  327. 7370 [139][202](EG$(I),J,1)[178]"STEP"[167]PO[178]J:J[178][195](EG$(I))
  328. 7380 [130]
  329. 7390 G[178][197]([202](EG$(I),PO[170]1))
  330. 7400 FM%[178]1:[141]16500
  331. 7410 E$(SP,I)[178]EG$(I)
  332. 7420 [130]:PL(0)[178][171]1:[142]
  333. 8000 [153]"LOAD"
  334. 8010 [129]I[178]1[164]NM
  335. 8020 [151]646,1[171](I[173]2[178][181](I[173]2))[172]4
  336. 8040 [153]Z$(I)". "M$(0,I)
  337. 8050 [130]
  338. 8060 [153]""[163]22)"LEFT$EIMMANNSCHAFT :"
  339. 8070 [153][163]22);:[132]3,HM$:[153]
  340. 8080 [139]HM$[178]"X"[167]7000
  341. 8090 HM[178][197](HM$):[153]"ON"[163]22);
  342. 8100 [139]HM[179]1[176]HM[177]NM[167]8070
  343. 8110 [153]M$(0,HM)
  344. 8120 [153]""[163]22)"CHR$ASTMANNSCHAFT :"
  345. 8130 [153][163]22);:[132]3,GM$:[153]
  346. 8140 GM[178][197](GM$):[153]"ON"[163]22);
  347. 8150 [139]GM[179]1[176]GM[177]NM[167]8070
  348. 8160 [153]M$(0,GM):TB[178]22:[141]13
  349. 8170 SP[178]0:[129]I[178]1[164]AS[172]RR%
  350. 8180 [129]J[178]1[164]NM[173]2
  351. 8190 [139]H(I,J)[178]HM[175]G(I,J)[178]GM[167]SP[178]I:K[178]J:I[178]AS[172]RR%:J[178]NM[173]2
  352. 8200 [130]:[130]
  353. 8210 [139]SP[179][177]0[167]8230
  354. 8220 [153]""[163]22)"(null)PIEL WIRD NICHT":[153][163]22)"AUSGETRAGEN !   "
  355. 8225 [141]15:[137]8000
  356. 8230 [153]"LOAD"LI$(0)
  357. 8240 [153]""SP"CMD. (null)PIELTAG  "S$[163]29)D$(SP)
  358. 8250 I[178]K:[139]E$(SP,I)[178]"-STEP-"[167]8270
  359. 8260 [153]"VALRGEBNIS IM (null)PEICHER :   ";E$(SP,I);" "
  360. 8270 [153]""M$(0,HM)" LOG "M$(0,GM)
  361. 8280 [153]:[153]""
  362. 8290 [139]E$(SP,I)[179][177]"-STEP-"[167][153]"(null)EUES ";
  363. 8300 [153]"VALRGEBNIS : ";
  364. 8310 [141]90:TB[178]14:[141]13
  365. 8320 [139]E$(SP,I)[178]"-STEP-"[167]8390
  366. 8330 H[178][197](E$(SP,I))
  367. 8340 [129]J[178]1[164][195](E$(SP,I))
  368. 8350 [139][202](E$(SP,I),J,1)[178]"STEP"[167]PO[178]J:J[178][195](E$(SP,I))
  369. 8360 [130]
  370. 8370 G[178][197]([202](E$(SP,I),PO[170]1))
  371. 8380 FM%[178][171]1:[141]16500
  372. 8390 [139]E$[178]"-STEP-"[167]8450
  373. 8395 H[178][197](E$)
  374. 8400 [129]J[178]1[164][195](E$)
  375. 8410 [139][202](E$,J,1)[178]"STEP"[167]PO[178]J:J[178][195](E$)
  376. 8420 [130]
  377. 8430 G[178][197]([202](E$,PO[170]1))
  378. 8440 FM%[178]1:[141]16500
  379. 8450 E$(SP,I)[178]E$:PL(0)[178][171]1:[137]7000
  380. 8999 [178][178][178][178][178][178][178][178][178] FEH[195]DE SPIELE [178][178][178][178][178][178][178][178][178]
  381. 9000 [153]"LOAD"LI$(0)
  382. 9010 [153]""MU$:Z$[178]" R E S T L I C H E   (null) P I E L E "
  383. 9020 [153]"ONON";:[141]25
  384. 9030 [153][163]12)"1) (null)PIELTAG"
  385. 9040 [153][163]12)"2) (null)ESTPROGRAMM"
  386. 9050 [153][163]12)"3) (null)ACHHOLSPIELE"
  387. 9055 [153][163]12)"4) STR$ATUM E. (null)PIELS"
  388. 9060 [153][163]12)"5) LEFT$AUPTMEN^"
  389. 9070 [153]MU$
  390. 9080 [141]15
  391. 9090 [139]A$[179]"1"[176]A$[177]"5"[167]9080
  392. 9100 [145][197](A$)[137]9120,9500,10000,10500,230
  393. 9120 [141]17000:[139]ST$[178]"X"[167]9000
  394. 9160 [139]AF[179]1[176]AF[177]AS[172]RR%[167]9120
  395. 9180 [129]I[178]AF[164]ED
  396. 9190 [153]"LOAD"LI$(0)
  397. 9200 [153]""I"CMD. (null)PIELTAG  "S$"   "D$(I)""
  398. 9210 F%[178]0:[129]J[178]1[164]NM[173]2
  399. 9220 [139]E$(I,J)[178]"-STEP-"[167]F%[178]F%[170]1
  400. 9230 [130]
  401. 9240 [139]F%[179][177][181](NM[173]2)[167][153]" (null)PIELTAG WURDE BEREITS AUSGETRAGEN !":[137]9280
  402. 9241 [139]DR[178]3[167]9245
  403. 9242 [152]4:[152]4:[152]4,I". SPIELTAG    "D$(I):[152]4
  404. 9245 [129]J[178]1[164]NM[173]2
  405. 9246 [151]646,1[171](J[173]2[178][181](J[173]2))[172]4
  406. 9250 [153]M$(0,H(I,J))"  LOG  "M$(0,G(I,J))
  407. 9260 [139]DR[178]3[167]9275
  408. 9270 [152]4,M$(1,H(I,J))"  LEN  "M$(1,G(I,J))
  409. 9275 [130]
  410. 9280 [153]:[141]35
  411. 9290 [130]:[137]9000
  412. 9500 [153]"LOAD":[129]I[178]1[164]NM
  413. 9515 [151]646,1[171](I[173]2[178][181](I[173]2))[172]4
  414. 9520 [153]Z$(I)". "M$(0,I)
  415. 9530 [130]
  416. 9540 [153]""[163]22)"(null)ANNSCHAFT :"
  417. 9550 [153][163]22);:[132]3,M$
  418. 9560 [139]M$[178]"X"[167]9000
  419. 9570 M[178][197](M$)
  420. 9580 [139]M[179]1[176]M[177]NM[167][153]"ON":[137]9550
  421. 9610 [139]DR[178]3[167]9630
  422. 9620 [152]4:[152]4:[152]4,"RESTPROGRAMM "[199](14)M$(2,M)[199](15):[152]4
  423. 9630 [153]"LOAD"LI$(0)
  424. 9633 [153]"SYS (null)ESTPROGRAMM : "M$(0,M)""
  425. 9635 K[178]0:[129]SP[178]1[164]AS[172]RR%:[139]K[179][177]0[167]9640
  426. 9640 [129]I[178]1[164]NM[173]2
  427. 9650 [151]646,1[171](K[173]2[178][181](K[173]2))[172]4
  428. 9670 [139]H(SP,I)[179][177]M[176]E$(SP,I)[179][177]"-STEP-"[167]9720
  429. 9680 [153]M$(0,G(SP,I))" (LEFT$)   "D$(SP):K[178]K[170]1
  430. 9690 [139]DR[178]3[167]9770
  431. 9700 [152]4,M$(1,H(SP,I))"  LEN  "M$(1,G(SP,I))[199](16)"39";
  432. 9705 [152]4,SP". SPIELTAG  /  "D$(SP)
  433. 9710 [137]9770
  434. 9720 [139]G(SP,I)[179][177]M[176]E$(SP,I)[179][177]"-STEP-"[167]9770
  435. 9730 [153]M$(0,H(SP,I))" (ATN)   "D$(SP):K[178]K[170]1
  436. 9740 [139]DR[178]3[167]9770
  437. 9750 [152]4,M$(1,H(SP,I))"  LEN  "M$(1,G(SP,I))[199](16)"39";
  438. 9760 [152]4,SP". SPIELTAG  /  "D$(SP)
  439. 9770 [139]K[178]10[167]K[178]0:[153]:[141]35:[153]"LOAD"LI$(0):[153]"SYS (null)ESTPROGRAMM : "M$(0,M)""
  440. 9780 [130]:[130]
  441. 9790 [139]K[179][177]0[167][153]:[141]35
  442. 9800 [137]9000
  443. 9999 [128]
  444. 10000 [153]"LOAD"
  445. 10010 [139]DR[178]4[167][152]4:[152]4:[152]4,[199](14)"NACHHOLSPIELE :"[199](15):[152]4
  446. 10015 [153]"LOAD"LI$(0)
  447. 10016 [153]"SYS (null)ACHHOLSPIELE : "
  448. 10020 K[178]0:[129]SP[178]1[164]AS[172]RR%
  449. 10030 F%[178]0:[129]I[178]1[164]NM[173]2
  450. 10040 [139]E$(SP,I)[178]"-STEP-"[167]F%[178]F%[170]1
  451. 10050 [130]
  452. 10060 [139]F%[178][181](NM[173]2)[167]10140
  453. 10070 [129]I[178]1[164]NM[173]2:[139]K[179][177]0[167]10080
  454. 10080 [139]E$(SP,I)[179][177]"-STEP-"[167]10135
  455. 10085 [151]646,1[171](K[173]2[178][181](K[173]2))[172]4
  456. 10090 [153]""SP"CMD. (null)PIELTAG  "S$
  457. 10100 [153]""M$(0,H(SP,I))"-"M$(0,G(SP,I)):K[178]K[170]1
  458. 10110 [139]DR[178]3[167]10130
  459. 10120 [152]4,M$(1,H(SP,I))"  LEN  "M$(1,G(SP,I))[199](16)"50";
  460. 10125 [152]4,SP". SPIELTAG"
  461. 10130 [139]K[178]3[167]K[178]0:[153]:[141]35:[153]"LOAD"LI$(0):[153]"SYS (null)ACHHOLSPIELE : "
  462. 10135 [130]
  463. 10140 [130]
  464. 10150 [139]K[179][177]0[167][153]:[141]35:[137]9000
  465. 10160 [137]9000
  466. 10500 F2%[178]1:[137]6000
  467. 14999 [178][178][178][178][178][178][178][178][178][178][178][178][178][178] DISK [178][178][178][178][178][178][178][178][178][178][178][178][178][178]
  468. 15000 [153]"LOAD"LI$(0)
  469. 15010 [153]""MU$:[153]"ONON";:Z$[178]" STR$ I S K ":[141]25
  470. 15020 [153]"1) STR$ATEN LADEN        6) STR$ATEI L*SCHEN
  471. 15030 PRINT"2) [196]ATEN SPEICHERN    7) [203]OMMENTAR IN
  472. 15035 [153][163]25)"STR$IRECTORY EINF.";
  473. 15040 [153]"3) STR$IRECTORY ASCORMAT 1 8) PEEKEFEHLSKANAL
  474. 15050 PRINT"4) [196]IRECTORY [198]ORMAT 2 9) [198]EHLERKANAL
  475. 15055 [153]"5) STR$IRECTORY VALIDATE 0) LEFT$AUPTMEN^
  476. 15060 PRINT""MU$
  477. 15070 GOSUB15:IFA$<"0"ORA$>"9"THEN15070
  478. 15080 ONVAL(A$)+1GOTO230,20000,21000,15100,22000,22700,22500,20500,15200,15090
  479. 15090 GOSUB55:IFA<2THENPRINT"[147]":GOSUB25:GOSUB35
  480. 15095 GOTO15000
  481. 15100 PRINT"[147]":FORI=1TO15:NEXT:SYS49152:IFST<>64THENGOSUB55:GOTO15000
  482. 15110 PRINTTAB(8)"[170][167] [210][197][212][213][210][206] [190][191][146]";
  483. 15120 GOSUB15:IFA$<>CHR$(13)THEN15120
  484. 15130 GOTO15000
  485. 15200 POKE631,34:POKE198,1
  486. 15210 PRINT"[147] [194]EFEHL : ";:INPUT#3,BF$:PRINT
  487. 15250 IFBF$="X"THEN15000
  488. 15270 IFLEFT$(BF$,1)="N"THENPRINT#15,"M-W"CHR$(81)CHR$(0)CHR$(1)CHR$(255)
  489. 15280 PRINT#15,BF$:CLOSE1:GOSUB55:GOTO15000
  490. 15999 =============== ENDE =============
  491. 16000 INPUT"[147] [211]ICHER ";SI$
  492. 16020 IFLEFT$(SI$,1)="J"THENSYS64738
  493. 16040 GOTO230
  494. 16499 ======== PUNKTE ERRECHNEN ========
  495. 16500 PT(H(SP,I))=PT(H(SP,I))+H*FM%
  496. 16510 MT(H(SP,I))=MT(H(SP,I))+G*FM%
  497. 16520 PT(G(SP,I))=PT(G(SP,I))+G*FM%
  498. 16530 MT(G(SP,I))=MT(G(SP,I))+H*FM%
  499. 16540 IFH=GTHEND1=1:D2=1:UN(H(SP,I))=UN(H(SP,I))+FM%:UN(G(SP,I))=UN(G(SP,I))+FM%
  500. 16550 IFH>GTHEND1=2:D2=0:GW(H(SP,I))=GW(H(SP,I))+FM%:VL(G(SP,I))=VL(G(SP,I))+FM%
  501. 16560 IFH<GTHEND1=0:D2=2:VL(H(SP,I))=VL(H(SP,I))+FM%:GW(G(SP,I))=GW(G(SP,I))+FM%
  502. 16570 PP(H(SP,I))=PP(H(SP,I))+D1*FM%
  503. 16580 MP(H(SP,I))=MP(H(SP,I))+D2*FM%
  504. 16590 PP(G(SP,I))=PP(G(SP,I))+D2*FM%
  505. 16600 MP(G(SP,I))=MP(G(SP,I))+D1*FM%
  506. 16610 RETURN
  507. 16999 ======= DATUM / SPIELTAG =========
  508. 17000 INPUT"[147] [211]PIELTAG ";ST$
  509. 17010 IFST$="X"THENRETURN
  510. 17020 IFLEFT$(ST$,2)<>"D;"THENGOSUB145:RETURN
  511. 17030 AF=0:ED=0:FORII=1TOAS*RR%
  512. 17040 IFMID$(ST$,3)=D$(II)THENAF=II:ED=II:II=AS*RR%
  513. 17050 NEXT
  514. 17060 RETURN
  515. 17999 ====== DRUCKER / BILDSCHIRM ======
  516. 18000 IFDR=4THENCLOSE4:DR=3:POKE251,66:GOTO230
  517. 18010 PRINT"[147]":Z$="[255]BERSCHRIFT DRUCKEN ([202]/[206]) ?":GOSUB25
  518. 18011 GOSUB15:IFA$="X"THEN230
  519. 18012 IFA$<>"J"ANDA$<>"N"THEN18011
  520. 18014 AA$=A$
  521. 18015 GA=4:GOSUB19000
  522. 18045 OPEN4,4,0:IFAA$="N"THEN18090
  523. 18050 PRINT#4,TAB(20)CHR$(14)">>> LIGA - MASTER <<<"
  524. 18055 PRINT#4
  525. 18060 FORI=1TO40:PRINT#4,"*";:NEXT:PRINT#4,CHR$(15)
  526. 18070 PRINT#4,LI$(1);:PRINT#4,SPC(5)S$CHR$(14)
  527. 18080 FORI=1TO40:PRINT#4,"*";:NEXT:PRINT#4:PRINT#4,CHR$(15)
  528. 18090 DR=4:POKE251,68:GOTO230
  529. 18100 PRINT#4,M$(1,H(SP,I))CHR$(16)"18 [195] "M$(1,G(SP,I));
  530. 18110 FORKK=1TOLEN(E$(SP,I)):B$=MID$(E$(SP,I),KK,1)
  531. 18120 IFB$="[169]"THENPO=KK:KK=LEN(E$(SP,I))
  532. 18130 NEXT
  533. 18140 PRINT#4,CHR$(16)"38"LEFT$(E$(SP,I),PO-1)" : "MID$(E$(SP,I),PO+1);
  534. 18150 RETURN
  535. 18490 ========== UHR STELLEN ===========
  536. 18500 Z$="[170][167] [204][201][199][193] - [205][193][211][212][197][210] [190][191]":PRINT"[147]";:GOSUB25
  537. 18501 Z$="[188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188]":GOSUB25
  538. 18502 PRINT""LI$(0)
  539. 18510 PRINT""MU$:PRINT"[145][145]";:Z$=" [213] H R   S T E L L E N ":GOSUB25
  540. 18520 PRINT" [196]ATUM  ([212]AG)
  541. 18522 [153]" STR$ATUM  ((null)ONAT)
  542. 18524 PRINT" [196]ATUM  ([202]AHR)
  543. 18530 [153]" (null)HRZEIT  (LEFT$LEFT$(null)(null)(null)(null))"
  544. 18540 [153]""MU$
  545. 18550 [153]""[163]19);:[132]3,TA$:[153]:[153][163]19);
  546. 18551 [139]TA$[178]"X"[175][194](789)[178]194[167][142]
  547. 18552 [139]TA$[178]"X"[167]18500
  548. 18555 [132]3,MO$:MO[178][197](MO$):[153]:[153][163]19);:[132]3,JA$:JA[178][197](JA$):[153]
  549. 18556 TA[178][197](TA$)
  550. 18560 [139]JA[177]1900[167]JA[178]JA[171]1900
  551. 18570 [139]JA[179]80[176]JA[177]99[167]18500
  552. 18580 [139]MO[179]1[176]MO[177]12[167]18500
  553. 18585 [139]TA[179]1[176]TA[177]31[167]18500
  554. 18590 [139](MO[178]4[176]MO[178]6[176]MO[178]9[176]MO[178]11)[175]TA[178]31[167]18500
  555. 18600 [139]MO[178]2[175]TA[177]29[167]18500
  556. 18610 [139]MO[178]2[175]TA[178]29[175]JA[173]4[179][177][181](JA[173]4)[167]18500
  557. 18615 [151]252,TA:[151]253,MO:[151]254,JA
  558. 18620 [153]""[163]19);:[132]3,TM$:[153]
  559. 18630 [158]49408,TM$
  560. 18640 [142]
  561. 18999 [178][178][178][178][178][178][178] GER@T EIGESCHALTET [178][178][178][178][178][178][178]
  562. 19000 [159]10,GA,0:[160]10:[139]ST[177][178]0[167][142]
  563. 19010 [139]GA[178]4[167]GA$[178]"STR$RUCKER"
  564. 19020 [139]GA[178]8[167]GA$[178]"ASCLOPPY"
  565. 19030 [153]"LOAD":Z$[178]GA$[170]" EINSCHALTEN !!":[141]25
  566. 19040 [153]"";:[141]35
  567. 19050 [139]A$[178]"X"[167]230
  568. 19070 [137]19000
  569. 19999 [178][178][178][178][178][178][178][178][178][178] DATEN LADEN [178][178][178][178][178][178][178][178][178][178][178]
  570. 20000 Z$[178]" STR$ A T E N   L A D E N ":S%[178]0:[141]23000:[160]5:[139]A[177]1[167]15000
  571. 20010 [139][200](F2$,1)[178]"(null)"[167]20060
  572. 20020 [153]"";:Z$[178]" UNZUL@SSIGER ASCILETYP !! ":[141]25
  573. 20030 [141]15:[139]A$[179][177]" "[167]20030
  574. 20040 [137]20000
  575. 20060 [159]9,8,2,FI$[170]",S,R"
  576. 20065 [141]55
  577. 20066 [139]A[177]1[167][160]9:[141]81:[137]15000
  578. 20070 [132]9,LI$(0),LI$(1),S$,NM,AS
  579. 20080 [129]I[178]1[164]NM:[129]J[178]0[164]2:[132]9,M$(J,I):[130]:[130]
  580. 20090 [132]9,RR%
  581. 20100 [129]I[178]1[164]AS[172]RR%:[129]J[178]1[164]NM[173]2:[132]9,H(I,J),G(I,J):[130]:[130]
  582. 20110 [129]I[178]1[164]AS[172]RR%:[132]9,D$(I):[130]
  583. 20120 [129]I[178]1[164]AS[172]RR%:[129]J[178]1[164]NM[173]2:[132]9,E$(I,J):[130]:[130]
  584. 20130 [129]I[178]1[164]NM
  585. 20140 [132]9,PP(I),MP(I),PT(I),MT(I),GW(I),UN(I),VL(I),PL(I)
  586. 20150 [130]:[132]9,PL(0)
  587. 20160 [160]9:[141]55:[137]230
  588. 20499 [178][178][178][178][178][178] KOMMENTAR EINF[174]GEN [178][178][178][178][178][178][178][178]
  589. 20500 S%[178]0:Z$[178]" (null) O M M E N T A R   E I N F .":ZU$[178]" (null)OR":[141]23000:ZU$[178]""
  590. 20505 [139]A[177]1[167][160]5:[141]55:[137]15000
  591. 20510 [153]"LOAD"LI$(0):[153]""MU$:[153]"ONON";:[141]25
  592. 20520 [153]""MU$:[153]"ONONONONONONON PEEKITTE (null)EXT EINGEBEN (MAX. 73 (null)EICHEN) :"
  593. 20530 [153]"+THEN"[200](SP$,73)"COSSINONON":[153][163]2);
  594. 20540 [132]3,TE$:[153]:TE$[178]"(null) "[170][200](TE$[170]SP$,73)
  595. 20550 NR[178]0
  596. 20560 NR[178]NR[170]1:[152]15,"P"[199](3)[199](NR)[199](0)[199](1)
  597. 20561 [141]55:[139]A[177]1[167]15000
  598. 20565 [161]#5,A$:[139]A$[179][177][199](255)[167]20560
  599. 20567 [139]NR[178]143[167][153]"":Z$[178]"(null)EIN (null)LATZ MEHR !":[141]25:[153]:[141]35:[137]15000
  600. 20570 [129]I[178]NR[171]1[164]NR%[169][171]1
  601. 20580 [152]15,"P"[199](3)[199](I)[199](0)[199](1)
  602. 20590 [132]5,A$
  603. 20600 [152]15,"P"[199](3)[199](I[170]1)[199](0)[199](1)
  604. 20610 [152]5,A$:[130]
  605. 20620 [152]15,"P"[199](3)[199](NR%)[199](0)[199](1)
  606. 20630 [152]5,TE$:[160]5:[141]55:[137]15000
  607. 20999 [178][178][178][178][178][178][178][178] DATEN SPEICHERN [178][178][178][178][178][178][178][178][178]
  608. 21000 Z$[178]" STR$ A T E N   S P E I C H E R N "
  609. 21005 [159]6,8,3,"DIRECTORY":[160]6
  610. 21010 ZZ$[178]Z$:[141]55:Z$[178]ZZ$:[139]A[179]2[167]21100
  611. 21015 [139]A[179][177]62[167]15000
  612. 21020 [153]"LOAD"LI$(0):[153]""MU$:[153]"ONON";
  613. 21030 [141]25
  614. 21040 [153]" STR$IES IST KEINE (null)IGA - (null)ASTER STR$ISKETTE!"
  615. 21050 [153]" (null)OLL ES EINE WERDEN ? (J/N)"
  616. 21060 [153]""MU$
  617. 21070 [141]15:[139]A$[178]"N"[167]15000
  618. 21080 [139]A$[179][177]"J"[167]21070
  619. 21090 [159]6,8,3,"DIRECTORY,L,"[170][199](76)
  620. 21092 [152]15,"P"[199](3)[199](144)[199](0)[199](1):[152]6,[199](255)
  621. 21095 [160]6
  622. 21096 ZZ$[178]Z$:[141]55:Z$[178]ZZ$:[139]A[177]1[175]A[179][177]50[167][160]6:[141]81:[137]15000
  623. 21100 S%[178]1:[141]23000:[160]5:[139]A[177]1[167]15000
  624. 21101 [139][200](F2$,1)[179][177]"(null)"[167]21108
  625. 21102 [153]"";:Z$[178]" UNZUL@SSIGER ASCILETYP !! WAIT":[141]25
  626. 21103 [141]15:[139]A$[179][177]" "[167]21103
  627. 21104 [137]21000
  628. 21108 [139]NR%[178]0[167]21120
  629. 21110 [152]15,"S:"[170]FI$
  630. 21120 [159]9,8,2,FI$[170]",S,W"
  631. 21130 [152]9,LI$(0):[152]9,LI$(1):[152]9,S$:[152]9,NM:[152]9,AS
  632. 21140 [129]I[178]1[164]NM:[129]J[178]0[164]2:[152]9,M$(J,I):[130]:[130]
  633. 21150 [152]9,RR%
  634. 21160 [129]I[178]1[164]AS[172]RR%:[129]J[178]1[164]NM[173]2:[152]9,H(I,J):[152]9,G(I,J):[130]:[130]
  635. 21170 [129]I[178]1[164]AS[172]RR%:[152]9,D$(I):[130]
  636. 21180 [129]I[178]1[164]AS[172]RR%:[129]J[178]1[164]NM[173]2
  637. 21190 [152]9,E$(I,J)
  638. 21200 [130]:[130]
  639. 21210 [129]I[178]1[164]NM
  640. 21220 [152]9,PP(I):[152]9,MP(I):[152]9,PT(I):[152]9,MT(I)
  641. 21230 [152]9,GW(I):[152]9,UN(I):[152]9,VL(I):[152]9,PL(I)
  642. 21240 [130]:[152]9,PL(0)
  643. 21250 [160]9:[141]55
  644. 21260 [139][197](FK$)[179][177]0[167]15000
  645. 21270 DA$[178]"":[129]I[178]0[164]2
  646. 21280 DA$[178]DA$[170][201]("0"[170][202]([196]([194](252[170]I)),2),2)
  647. 21290 [139]I[179][177]2[167]DA$[178]DA$[170]"."
  648. 21300 [130]
  649. 21310 TM$[178]"":[129]I[178]52286[164]52293
  650. 21315 [139]I[178]52288[176]I[178]52291[167]TM$[178]TM$[170]"-":[130]
  651. 21320 TM$[178]TM$[170][202]([196]([194](I)[171]48),2,1)
  652. 21330 [130]
  653. 21335 [139][194](52295)[178]1[167]21338
  654. 21336 [139][197](TM$)[178]12[167]21340
  655. 21337 TM$[178][202]([196]([197](TM$)[170]12),2)[170][202](TM$,3)
  656. 21338 [159]7,8,4,"DIRECTORY"
  657. 21340 [139][197](NR$)[178]0[167]21380
  658. 21350 [152]15,"P"[199](4)[199](NR%)[199](0)[199](1)
  659. 21360 [152]7,"(null)"[202](F2$,2,26)DA$[202](F2$,36,32)TM$
  660. 21370 [160]7:[137]230
  661. 21380 NR[178]0
  662. 21390 NR[178]NR[170]1:[152]15,"P"[199](4)[199](NR)[199](0)[199](1)
  663. 21400 [161]#7,A$:[139]A$[179][177][199](255)[175]A$[179][177]"(null)"[167]21390
  664. 21410 [152]15,"P"[199](4)[199](NR)[199](0)[199](1)
  665. 21420 [152]7,"(null) "[200](FI$,12)"   "DA$"  "DA$;[200](SP$,22)TM$"  "TM$
  666. 21430 [160]7:[137]230
  667. 21999 [178][178][178][178][178][178][178][178][178] [211]EC[164]RY F2 [178][178][178][178][178][178][178][178][178][178][178]
  668. 22000 S%[178]2:Z$[178]" STR$ I R E C T O R Y   ASC. 2 ":[141]23000:[137]15000
  669. 22499 [178][178][178][178][178][178][178][178][178] DATEI L[172]SCHEN [178][178][178][178][178][178][178][178][178][178]
  670. 22500 Z$[178]" STR$ A T E I   L * S C H E N "
  671. 22510 S%[178]0:[141]23000:[139]A[177]1[167][160]5:[137]15000
  672. 22520 [139][200](F2$,1)[179][177]"(null)"[167][152]15,"S:"[170]FI$
  673. 22530 [152]15,"P"[199](3)[199](NR%)[199](0)[199](1)
  674. 22540 [152]5,"(null)"[170][202](F2$,2)
  675. 22550 [160]5:[141]55:[137]15000
  676. 22699 [178][178][178][178][178][178][178] [211]EC[164]RY [197]IDATE [178][178][178][178][178][178][178]
  677. 22700 [159]8,8,5,"DIRECTORY"
  678. 22710 [141]55:[139]A[177]1[167][160]8:[137]15000
  679. 22720 NR[178]0:DE[178]0
  680. 22730 NR[178]NR[170]1:[152]15,"P"[199](5)[199](NR)[199](0)[199](1)
  681. 22735 [132]8,A$:[139]A$[178][199](255)[167]22760
  682. 22737 [139]([200](A$,1)[178]"(null)"[176][200](A$,1)[178]"(null)")[175]DE[178]0[167]22730
  683. 22738 [139][200](A$,1)[178]"(null)"[167]DE[178]DE[170]1:[137]22730
  684. 22740 [152]15,"P"[199](5)[199](NR[171]DE)[199](0)[199](1)
  685. 22750 [152]8,A$:[137]22730
  686. 22760 [129]I[178]NR[171]DE[164]NR:[152]15,"P"[199](5)[199](I)[199](0)[199](1)
  687. 22770 [152]8,[199](255):[130]
  688. 22780 [160]8:[137]15000
  689. 22999 [178][178][178][178][178][178] [211]EC[164]RY F2 LESEN [178][178][178][178][178][178][178][178]
  690. 23000 [159]5,8,3,"DIRECTORY"
  691. 23010 ZZ$[178]Z$:[141]55:Z$[178]ZZ$
  692. 23020 [139]A[179][177]62[167]23030
  693. 23021 [153]"LOAD"LI$(0):[153]""MU$:[153]"ONON";:[141]25
  694. 23022 [153]"":Z$[178]"(null)EINE (null)IGA - (null)ASTER STR$ISKETTE !":[141]25:[153]
  695. 23023 [153]""MU$:[153]"ONONONON";:[141]35:[160]5:[137]15000
  696. 23030 [139]A[177]1[167][160]5:[142]
  697. 23040 NR[178]0:EN[178]0
  698. 23050 [153]"LOAD"LI$(0):[153]""MU$:[153]"ONON";:[141]25
  699. 23052 [153]""MU$;
  700. 23053 [153]""
  701. 23056 NR[178]NR[170]1:[152]15,"P"[199](3)[199](NR)[199](0)[199](1)
  702. 23057 [151]646,1[171](NR[173]2[178][181](NR[173]2))[172]4
  703. 23060 [132]5,FI$:[139]FI$[179][177][199](255)[167]23068
  704. 23065 NR[178]NR[171]1:EN[178]NR:[153]" VALNDE "
  705. 23067 [137]23080
  706. 23068 [139]DR[178]3[176]S%[179][177]2[167]23070
  707. 23069 [152]4,""[202]([196](NR),2)"."[199](16)"05"[200](FI$,35):[152]4,""[202](FI$,36)
  708. 23070 [153][202]([196](NR),2)"."[163]4)FI$:[139]NR[173]5[179][177][181](NR[173]5)[167]23056
  709. 23080 [139]S%[179][177]2[167]23087
  710. 23082 [141]15:[139]A$[178]"X"[167][160]5:[137]15000
  711. 23083 [139]A$[178]"+"[167]23050
  712. 23084 [139]A$[179][177]"-"[167]23082
  713. 23085 NR[178]NR[171]10:[139]NR[179]0[167]NR[178]0
  714. 23086 [137]23050
  715. 23087 [153]""ZU$" (null)UMMER ";:[139]S%[178]1[167][153]"(BZW. ASCILENAME) ";
  716. 23088 [153]": ";:[132]3,NR$:[153]
  717. 23089 [139]NR$[178]"X"[167]A[178]2:[142]
  718. 23090 [139]NR$[178]"+"[167]23050
  719. 23100 [139]NR$[179][177]"-"[167]23107
  720. 23105 NR[178]NR[171]10:[139]NR[179]0[167]NR[178]0
  721. 23106 [137]23050
  722. 23107 [139]([198](NR$)[179]48[176][198](NR$)[177]57)[175]S%[178]1[167]FI$[178][200](NR$[170]SP$,12)[170]"(null)RIGHT$(null)ATN":[142]
  723. 23110 NR%[178][197](NR$)
  724. 23120 [139]NR%[179]1[176]NR%[177]143[176](NR%[177]EN[175]EN[179][177]0)[167][153]"ONON";:[137]23087
  725. 23125 [152]15,"P"[199](3)[199](NR%)[199](0)[199](1)
  726. 23126 [132]5,F2$:[139]F2$[179][177][199](255)[167]23130
  727. 23127 Z$[178]" UNZUL@SSIGE (null)UMMER ! ":[153]"";:[141]25:[141]15
  728. 23128 [139]A$[179][177]" "[167]23127
  729. 23129 [160]5:A[178]2:[142]
  730. 23130 FI$[178][202](F2$,3,12)[170]"(null)RIGHT$(null)ATN":[142]
  731. 29999 [178][178][178][178][178][178][178][178][178][178] NEUE LIGA [178][178][178][178][178][178][178][178][178][178][178][178][178]
  732. 31000 [153]"LOAD"LI$(0)
  733. 31010 [153]""MU$
  734. 31020 Z$[178]" N E U E   (null) I G A ":[153]"ONON";:[141]25
  735. 31030 [153][163]5)"EINGEBEN VON :"
  736. 31040 [153][163]7)"1) - (null)AME / (null)AISON"
  737. 31050 [153][163]7)"2) - (null)ANNSCHAFTSNAMEN"
  738. 31060 [153][163]7)"3) - (null)PIELTAG"
  739. 31070 [153][163]7)"4) - STR$ATUM"
  740. 31080 [153][163]7)"5) LEFT$AUPTMEN^"
  741. 31090 [153]MU$
  742. 31100 [141]15
  743. 31110 [139]A$[179]"1"[176]A$[177]"5"[167]31100
  744. 31120 [145][197](A$)[137]31130,31350,31570,31900,230
  745. 31130 [153]"LOAD"[163]10)LI$(0)
  746. 31140 [133]"ONON (null)IGA   ";L$
  747. 31150 [139]L$[178]"X"[167]31000
  748. 31160 LI$(0)[178][200](L$[170]SP$[170]SP$,39)
  749. 31170 LG$[178]"":[129]J[178]1[164]39:B$[178][202](LI$(0),J,1)
  750. 31180 [139]B$[178]"@"[176]B$[178]"SQR"[167]LG$[178]LG$[170]C$(1):[137]31235
  751. 31190 [139]B$[178]"*"[176]B$[178]"TAN"[167]LG$[178]LG$[170]C$(2):[137]31235
  752. 31200 [139]B$[178]"^"[176]B$[178]"(null)"[167]LG$[178]LG$[170]C$(3):[137]31235
  753. 31210 [139]B$[178]"_"[167]LG$[178]LG$[170]"SS":[137]31235
  754. 31220 [139][198](B$)[177]192[175][198](B$)[179]229[167]LG$[178]LG$[170][199]([198](B$)[171]128):[137]31235
  755. 31230 LG$[178]LG$[170]B$
  756. 31235 [139][195](LG$)[177]247[167]J[178]40
  757. 31240 [130]:LI$(1)[178]LG$
  758. 31250 [153]""[163]10)S$
  759. 31260 [133]"ON (null)AISON ";S$:S$[178][200](S$[170]SP$,9)
  760. 31270 [153]""[163]22)NM
  761. 31280 [133]"ON ATNNZAHL (null)ANNSCHAFTEN ";NM
  762. 31290 [139]NM[179]3[176]NM[177]20[167]31280
  763. 31300 AS[178]NM[170](NM[173]2[178][181](NM[173]2))
  764. 31302 [153]" (null)^CKRUNDE (MID$/(null)) ?"
  765. 31303 [141]15
  766. 31304 [139]A$[178]"J"[167]RR%[178]2:[137]31310
  767. 31305 [139]A$[178]"N"[167]RR%[178]1:[137]31310
  768. 31306 [137]31303
  769. 31310 [153]:[153]:[153]:[141]80
  770. 31320 [141]15:[139]A$[178]"N"[167]31130
  771. 31330 [139]A$[179][177]"J"[167]31320
  772. 31340 [137]31000
  773. 31350 [153]"LOAD"
  774. 31360 [129]I[178]1[164]NM
  775. 31370 [151]646,1[171](I[173]2[178][181](I[173]2))[172]4
  776. 31380 [153][163]17)M$(0,I)[163]31)"(null)"
  777. 31390 [153]"ON"Z$(I);:[133]". (null)ANNSCHAFT ";M$:[139][200](M$,4)[178]"X   "[167]31000
  778. 31400 M$(0,I)[178][200](M$[170]SP$,14)
  779. 31420 M$(1,I)[178]"":M$(2,I)[178]"":[129]J[178]1[164]14:B1$[178][202](M$(0,I),J,1):B2$[178]B1$
  780. 31430 [139]B1$[178]"@"[176]B1$[178]"SQR"[167]B1$[178]C$(1):B2$[178]C$(4):[137]31480
  781. 31440 [139]B1$[178]"*"[176]B1$[178]"TAN"[167]B1$[178]C$(2):B2$[178]C$(5):[137]31480
  782. 31450 [139]B1$[178]"^"[176]B1$[178]"(null)"[167]B1$[178]C$(3):B2$[178]C$(6):[137]31480
  783. 31460 [139]B1$[178]"_"[167]B1$[178]"SS":[137]31480
  784. 31470 [139][198](B1$)[179]193[176][198](B1$)[177]228[167]31480
  785. 31475 B1$[178][199]([198](B1$)[171]128):B2$[178]B1$
  786. 31480 M$(1,I)[178]M$(1,I)[170]B1$:M$(2,I)[178]M$(2,I)[170]B2$
  787. 31490 [130]:[130]:[141]80
  788. 31530 [141]15
  789. 31540 [139]A$[178]"J"[167]31000
  790. 31550 [139]A$[178]"N"[167]31350
  791. 31560 [137]31530
  792. 31570 [141]17000:[139]ST$[178]"X"[167]31000
  793. 31580 [139]AF[179]1[176]AF[177]AS[167]31570
  794. 31590 ED[178]ED[173]RR%
  795. 31690 [129]I[178]AF[164]ED
  796. 31700 [153]"LOAD"
  797. 31710 [129]J[178]1[164]NM[173]2:[153]Z$(J)". ";M$(0,J):[130]
  798. 31720 [153]"";:[129]J[178][181](NM[173]2)[170]1[164]NM:[153][163]20)Z$(J)". "M$(0,J):[130]
  799. 31730 [153]"SYS"[200]([196](I)[170]". (null)PIELTAG        "[170]S$[170]SP$,39)"WAIT"
  800. 31740 [129]K[178]1[164]NM[173]2
  801. 31750 [133]H$:[139]H$[178]"X"[167]K[178]NM[173]2:I[178]ED:[130]:[130]:[137]31000
  802. 31760 H(I,K)[178][197](H$):[139]H(I,K)[179]1[176]H(I,K)[177]NM[167][153]"ON";:[137]31750
  803. 31770 [153]"ON"M$(0,H(I,K));:[153][163]20);"LOG ";
  804. 31780 [133]G$:G(I,K)[178][197](G$):[139]G(I,K)[179]1[176]G(I,K)[177]NM[167][153]"ON"[163]22);:[137]31780
  805. 31790 [153]"ON";[163]22);M$(0,G(I,K))
  806. 31800 [130]:[153]"SYS"[163]20)"   (null)ORREKT (MID$/(null))?   WAIT"
  807. 31810 [141]15
  808. 31820 [139]A$[178]"J"[167]31850
  809. 31830 [139]A$[178]"N"[167]31700
  810. 31840 [137]31810
  811. 31850 [139]RR%[178]1[167]31890
  812. 31860 [129]K[178]1[164]NM[173]2
  813. 31870 H(I[170]AS,K)[178]G(I,K):G(I[170]AS,K)[178]H(I,K)
  814. 31880 [130]
  815. 31890 [130]:[137]31000
  816. 31900 [153]"LOAD VALINGABE STR$ATUM :":[153]
  817. 31910 [129]I[178]1[164]AS:[153]
  818. 31920 [151]646,1[171](I[173]2[178][181](I[173]2))[172]4
  819. 31940 [153][163]29)D$(I)
  820. 31950 [153]"ON"I;:[133]"CMD. (null)PIELTAG (LEFT$INRUNDE)  ";D$(I):D$(I)[178][200](D$(I),10)
  821. 31960 [139]RR%[178]1[167]32000
  822. 31970 [153][163]29)D$(I[170]AS)
  823. 31980 [153]"ON"I[170]AS;:[133]"CMD. (null)PIELTAG ((null)^CKRUNDE) ";D$(I[170]AS)
  824. 31990 D$(I[170]AS)[178][200](D$(I[170]AS),10)
  825. 32000 [130]
  826. 32010 [153]:[153]:[153]:[141]80
  827. 32020 [141]15
  828. 32030 [139]A$[178]"N"[167]31900
  829. 32040 [139]A$[179][177]"J"[167]32020
  830. 32050 [137]31000
  831. 63000 [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
  832. 63001 [172][172][172][172]                         [172][172][172][172]
  833. 63002 [172][172][172][172] LIGA [171] MASTER V3  V[145] : [172][172][172][172]
  834. 63003 [172][172][172][172]                         [172][172][172][172]
  835. 63004 [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
  836. 63005 [172][172][172][172][172][172][172]                   [172][172][172][172][172][172][172]
  837. 63006 [172][172][172][172][172][172][172]   FRANK [164]ELKE    [172][172][172][172][172][172][172]
  838. 63007 [172][172][172][172][172][172][172] TEU[164]NENSTR. 82 A [172][172][172][172][172][172][172]
  839. 63008 [172][172][172][172][172][172][172] 5880 LUEDENSCHEID [172][172][172][172][172][172][172]
  840. 63009 [172][172][172][172]                         [172][172][172][172]
  841. 63010 [172][172][172][172] TEL.: 0 23 51 [173] 2 80 90 [172][172][172][172]
  842. 63011 [172][172][172][172]                         [172][172][172][172]
  843. 63012 [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
  844.